home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1999 March / EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso / earcd / misc / pdflib / bindings / perl / pdfclock.pl < prev    next >
Perl Script  |  1999-01-01  |  2KB  |  91 lines
  1. #!/usr/bin/perl
  2. # PDFlib client: pdfclock example in Perl
  3. # (C) Thomas Merz 1998
  4.  
  5. use pdflib;
  6. package pdflib;
  7.  
  8. $RADIUS = 200.0;
  9. $MARGIN = 20.0;
  10.  
  11. $fp = fopen("pdfclock_perl.pdf", "w");
  12. $ip = PDF_get_info();
  13. $ip->{Creator} = "pdfclock.pl";
  14. $ip->{Author} =  "Thomas Merz";
  15. $ip->{Title} = "PDF clock (Perl)";
  16.  
  17. $p = PDF_open($fp, $ip);
  18.  
  19. PDF_begin_page($p, 2 * ($RADIUS + $MARGIN), 2 * ($RADIUS + $MARGIN));
  20.  
  21. PDF_set_transition($p, $trans_wipe);
  22. PDF_set_duration($p, 0.5);
  23.  
  24. PDF_translate($p, $RADIUS + $MARGIN, $RADIUS + $MARGIN);
  25. PDF_setrgbcolor($p, 0.0, 0.0, 1.0);
  26. PDF_save($p);
  27.  
  28. # minute strokes 
  29. PDF_setlinewidth($p, 2.0);
  30. for ($alpha = 0; $alpha < 360; $alpha += 6)
  31. {
  32.     PDF_rotate($p, 6.0);
  33.     PDF_moveto($p, $RADIUS, 0.0);
  34.     PDF_lineto($p, $RADIUS-$MARGIN/3, 0.0);
  35.     PDF_stroke($p);
  36. }
  37.  
  38. PDF_restore($p);
  39. PDF_save($p);
  40.  
  41. # 5 minute strokes
  42. PDF_setlinewidth($p, 3.0);
  43. for ($alpha = 0; $alpha < 360; $alpha += 30)
  44. {
  45.     PDF_rotate($p, 30.0);
  46.     PDF_moveto($p, $RADIUS, 0.0);
  47.     PDF_lineto($p, $RADIUS-$MARGIN, 0.0);
  48.     PDF_stroke($p);
  49. }
  50.  
  51. ($tm_sec,$tm_min,$tm_hour) = localtime(time);
  52.  
  53. # draw hour hand 
  54. PDF_save($p);
  55. PDF_rotate($p, (-(($tm_min/60.0) + $tm_hour - 3.0) * 30.0));
  56. PDF_moveto($p, -$RADIUS/10, -$RADIUS/20);
  57. PDF_lineto($p, $RADIUS/2, 0.0);
  58. PDF_lineto($p, -$RADIUS/10, $RADIUS/20);
  59. PDF_closepath($p);
  60. PDF_fill($p);
  61. PDF_restore($p);
  62.  
  63. # draw minute hand
  64. PDF_save($p);
  65. PDF_rotate($p, (-(($tm_sec/60.0) + $tm_min - 15.0) * 6.0));
  66. PDF_moveto($p, -$RADIUS/10, -$RADIUS/20);
  67. PDF_lineto($p, $RADIUS * 0.8, 0.0);
  68. PDF_lineto($p, -$RADIUS/10, $RADIUS/20);
  69. PDF_closepath($p);
  70. PDF_fill($p);
  71. PDF_restore($p);
  72.  
  73. # draw second hand
  74. PDF_setrgbcolor($p, 1.0, 0.0, 0.0);
  75. PDF_setlinewidth($p, 2);
  76. PDF_save($p);
  77. PDF_rotate($p, -(($tm_sec - 15.0) * 6.0));
  78. PDF_moveto($p, -$RADIUS/5, 0.0);
  79. PDF_lineto($p, $RADIUS, 0.0);
  80. PDF_stroke($p);
  81. PDF_restore($p);
  82.  
  83. # draw little circle at center
  84. PDF_circle($p, 0, 0, $RADIUS/30);
  85. PDF_fill($p);
  86.  
  87. PDF_restore($p);
  88. PDF_end_page($p);
  89.  
  90. PDF_close($p);
  91.